home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / toy.dxr / 00068.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  511 b   |  30 lines
  1. on exitFrame
  2.   global Aframe
  3.   sound stop 1
  4.   if soundBusy(2) = 0 then
  5.     if Aframe = "rex1" then
  6.       onVis(3)
  7.       onVis(12)
  8.       go(Aframe)
  9.     else
  10.       if Aframe = "rex2" then
  11.         onVis(4)
  12.       else
  13.         if Aframe = "rex3" then
  14.           onVis(12)
  15.           onVis(5)
  16.           go(Aframe)
  17.         else
  18.           if Aframe = "rex4" then
  19.             onVis(12)
  20.             onVis(6)
  21.             go(Aframe)
  22.           end if
  23.         end if
  24.       end if
  25.     end if
  26.   else
  27.     Loopframe()
  28.   end if
  29. end
  30.